function TBotswana.TestValid: Boolean;
begin
  Result := True;                     //GIVEN CODE
    If fM1 IN [fM2, fM3, fM4] Then    //GIVEN CODE
      Begin                           //GIVEN CODE
        Result := False;              //GIVEN CODE
      end;                            //GIVEN CODE
    If fM2 IN [fM1, fM3, fM4] Then    //GIVEN CODE
      Begin                           //GIVEN CODE
        Result := False;              //GIVEN CODE
      end;                            //GIVEN CODE
    If fM3 IN [fM2, fM1, fM4] Then    //GIVEN CODE
      Begin                           //GIVEN CODE
        Result := False;              //GIVEN CODE
      end;                            //GIVEN CODE
    If fM4 IN [fM2, fM3, fM1] Then    //GIVEN CODE
      Begin                           //GIVEN CODE
        Result := False;              //GIVEN CODE
      end;                            //GIVEN CODE
end;
